home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / gr2_ss.inc < prev    next >
Encoding:
Text File  |  1998-08-01  |  5.7 KB  |  365 lines
  1. *---------------------------------------
  2. *
  3. *    ânâCâpü[âOâèâhò\Ī
  4. *
  5. *    òKÄEïZüòÆ┤òKÄEïZ
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. gr2_sa_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subi.w    #16,d1
  14.     subi.w    #24,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$0054,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     subi.w    #16,d1
  47.     addi.w    #16,d2
  48.     addq.w    #1,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.  
  54.     addi.w    #16,d1
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     rts
  62. @@:
  63.     addi.w    #$4055,d7
  64.     move.w    d1,(a6)+
  65.     move.w    d2,(a6)+
  66.     move.w    d7,(a6)+
  67.     move.w    #$0003,(a6)+
  68.  
  69.     addi.w    #16,d1
  70.     subq.w    #1,d7
  71.     move.w    d1,(a6)+
  72.     move.w    d2,(a6)+
  73.     move.w    d7,(a6)+
  74.     move.w    #$0003,(a6)+
  75.  
  76.     subi.w    #16,d1
  77.     addi.w    #16,d2
  78.     addq.w    #3,d7
  79.     move.w    d1,(a6)+
  80.     move.w    d2,(a6)+
  81.     move.w    d7,(a6)+
  82.     move.w    #$0003,(a6)+
  83.  
  84.     addi.w    #16,d1
  85.     subq.w    #1,d7
  86.     move.w    d1,(a6)+
  87.     move.w    d2,(a6)+
  88.     move.w    d7,(a6)+
  89.     move.w    #$0003,(a6)+
  90.  
  91.     subi.w    #16,d1
  92.     addi.w    #16,d2
  93.     addq.w    #3,d7
  94.     move.w    d1,(a6)+
  95.     move.w    d2,(a6)+
  96.     move.w    d7,(a6)+
  97.     move.w    #$0003,(a6)+
  98.  
  99.     addi.w    #16,d1
  100.     subq.w    #1,d7
  101.     move.w    d1,(a6)+
  102.     move.w    d2,(a6)+
  103.     move.w    d7,(a6)+
  104.     move.w    #$0003,(a6)+
  105.  
  106.     rts
  107. *---------------------------------------
  108. gr2_sa_a:
  109.     move.w    d7,d3
  110.     move.w    C_X(a1),d1
  111.     move.w    C_Y(a1),d2
  112.     subi.w    #16,d1
  113.     subi.w    #24,d2
  114.     tst.w    C_LR_F(a1)
  115.     bne    @f
  116.  
  117.     addi.w    #$005a,d7
  118.     move.w    d1,(a6)+
  119.     move.w    d2,(a6)+
  120.     move.w    d7,(a6)+
  121.     move.w    #$0003,(a6)+
  122.  
  123.     addi.w    #16,d1
  124.     addq.w    #1,d7
  125.     move.w    d1,(a6)+
  126.     move.w    d2,(a6)+
  127.     move.w    d7,(a6)+
  128.     move.w    #$0003,(a6)+
  129.  
  130.     subi.w    #16,d1
  131.     addi.w    #16,d2
  132.     addq.w    #1,d7
  133.     move.w    d1,(a6)+
  134.     move.w    d2,(a6)+
  135.     move.w    d7,(a6)+
  136.     move.w    #$0003,(a6)+
  137.  
  138.     addi.w    #16,d1
  139.     addq.w    #1,d7
  140.     move.w    d1,(a6)+
  141.     move.w    d2,(a6)+
  142.     move.w    d7,(a6)+
  143.     move.w    #$0003,(a6)+
  144.  
  145.     subi.w    #16,d1
  146.     addi.w    #16,d2
  147.     addq.w    #1,d7
  148.     move.w    d1,(a6)+
  149.     move.w    d2,(a6)+
  150.     move.w    d7,(a6)+
  151.     move.w    #$0003,(a6)+
  152.  
  153.     addi.w    #16,d1
  154.     addq.w    #1,d7
  155.     move.w    d1,(a6)+
  156.     move.w    d2,(a6)+
  157.     move.w    d7,(a6)+
  158.     move.w    #$0003,(a6)+
  159.  
  160.     lea.l    CHARA_DATA(a1),a3
  161.     tst.w    C_M_F(a3)
  162.     beq    3f
  163.     move.w    C_X(a3),d1
  164.     move.w    C_Y(a3),d2
  165.     addi.w    #$0064,d3
  166.     move.w    C_ANI_WC(a3),d4
  167.     add.w    d4,d3                * éRö{îvÄZü@ÅçÅÿÆìê╙
  168.     add.w    d4,d4
  169.     add.w    d4,d3
  170.  
  171.     subq.w    #8,d1
  172.     subi.w    #24,d2
  173.     move.w    d1,(a6)+
  174.     move.w    d2,(a6)+
  175.     move.w    d3,(a6)+
  176.     move.w    #$0003,(a6)+
  177.     addq.w    #1,d3
  178.     addi.w    #16,d2
  179.     move.w    d1,(a6)+
  180.     move.w    d2,(a6)+
  181.     move.w    d3,(a6)+
  182.     move.w    #$0003,(a6)+
  183.     addq.w    #1,d3
  184.     addi.w    #16,d2
  185.     move.w    d1,(a6)+
  186.     move.w    d2,(a6)+
  187.     move.w    d3,(a6)+
  188.     move.w    #$0003,(a6)+
  189. 3:
  190.     rts
  191. @@:
  192.     addi.w    #$405b,d7
  193.     move.w    d1,(a6)+
  194.     move.w    d2,(a6)+
  195.     move.w    d7,(a6)+
  196.     move.w    #$0003,(a6)+
  197.  
  198.     addi.w    #16,d1
  199.     subq.w    #1,d7
  200.     move.w    d1,(a6)+
  201.     move.w    d2,(a6)+
  202.     move.w    d7,(a6)+
  203.     move.w    #$0003,(a6)+
  204.  
  205.     subi.w    #16,d1
  206.     addi.w    #16,d2
  207.     addq.w    #3,d7
  208.     move.w    d1,(a6)+
  209.     move.w    d2,(a6)+
  210.     move.w    d7,(a6)+
  211.     move.w    #$0003,(a6)+
  212.  
  213.     addi.w    #16,d1
  214.     subq.w    #1,d7
  215.     move.w    d1,(a6)+
  216.     move.w    d2,(a6)+
  217.     move.w    d7,(a6)+
  218.     move.w    #$0003,(a6)+
  219.  
  220.     subi.w    #16,d1
  221.     addi.w    #16,d2
  222.     addq.w    #3,d7
  223.     move.w    d1,(a6)+
  224.     move.w    d2,(a6)+
  225.     move.w    d7,(a6)+
  226.     move.w    #$0003,(a6)+
  227.  
  228.     addi.w    #16,d1
  229.     subq.w    #1,d7
  230.     move.w    d1,(a6)+
  231.     move.w    d2,(a6)+
  232.     move.w    d7,(a6)+
  233.     move.w    #$0003,(a6)+
  234.  
  235.     lea.l    CHARA_DATA(a1),a3
  236.     tst.w    C_M_F(a3)
  237.     beq    3f
  238.     move.w    C_X(a3),d1
  239.     move.w    C_Y(a3),d2
  240.     addi.w    #$4064,d3
  241.     move.w    C_ANI_WC(a3),d4
  242.     add.w    d4,d3                * éRö{îvÄZü@ÅçÅÿÆìê╙
  243.     add.w    d4,d4
  244.     add.w    d4,d3
  245.  
  246.     subq.w    #8,d1
  247.     subi.w    #24,d2
  248.     move.w    d1,(a6)+
  249.     move.w    d2,(a6)+
  250.     move.w    d3,(a6)+
  251.     move.w    #$0003,(a6)+
  252.     addq.w    #1,d3
  253.     addi.w    #16,d2
  254.     move.w    d1,(a6)+
  255.     move.w    d2,(a6)+
  256.     move.w    d3,(a6)+
  257.     move.w    #$0003,(a6)+
  258.     addq.w    #1,d3
  259.     addi.w    #16,d2
  260.     move.w    d1,(a6)+
  261.     move.w    d2,(a6)+
  262.     move.w    d3,(a6)+
  263.     move.w    #$0003,(a6)+
  264. 3:
  265.     rts
  266. *---------------------------------------
  267. gr2_ssa:
  268.     move.w    C_X(a1),d1
  269.     move.w    C_Y(a1),d2
  270.     subi.w    #16,d1
  271.     subi.w    #24,d2
  272.     tst.w    C_LR_F(a1)
  273.     bne    @f
  274.  
  275.     addi.w    #$0070,d7
  276.     move.w    d1,(a6)+
  277.     move.w    d2,(a6)+
  278.     move.w    d7,(a6)+
  279.     move.w    #$0003,(a6)+
  280.  
  281.     addi.w    #16,d1
  282.     addq.w    #1,d7
  283.     move.w    d1,(a6)+
  284.     move.w    d2,(a6)+
  285.     move.w    d7,(a6)+
  286.     move.w    #$0003,(a6)+
  287.  
  288.     subi.w    #16,d1
  289.     addi.w    #16,d2
  290.     addq.w    #1,d7
  291.     move.w    d1,(a6)+
  292.     move.w    d2,(a6)+
  293.     move.w    d7,(a6)+
  294.     move.w    #$0003,(a6)+
  295.  
  296.     addi.w    #16,d1
  297.     addq.w    #1,d7
  298.     move.w    d1,(a6)+
  299.     move.w    d2,(a6)+
  300.     move.w    d7,(a6)+
  301.     move.w    #$0003,(a6)+
  302.  
  303.     subi.w    #16,d1
  304.     addi.w    #16,d2
  305.     addq.w    #1,d7
  306.     move.w    d1,(a6)+
  307.     move.w    d2,(a6)+
  308.     move.w    d7,(a6)+
  309.     move.w    #$0003,(a6)+
  310.  
  311.     addi.w    #16,d1
  312.     addq.w    #1,d7
  313.     move.w    d1,(a6)+
  314.     move.w    d2,(a6)+
  315.     move.w    d7,(a6)+
  316.     move.w    #$0003,(a6)+
  317.  
  318.     rts
  319. @@:
  320.     addi.w    #$4071,d7
  321.     move.w    d1,(a6)+
  322.     move.w    d2,(a6)+
  323.     move.w    d7,(a6)+
  324.     move.w    #$0003,(a6)+
  325.  
  326.     addi.w    #16,d1
  327.     subq.w    #1,d7
  328.     move.w    d1,(a6)+
  329.     move.w    d2,(a6)+
  330.     move.w    d7,(a6)+
  331.     move.w    #$0003,(a6)+
  332.  
  333.     subi.w    #16,d1
  334.     addi.w    #16,d2
  335.     addq.w    #3,d7
  336.     move.w    d1,(a6)+
  337.     move.w    d2,(a6)+
  338.     move.w    d7,(a6)+
  339.     move.w    #$0003,(a6)+
  340.  
  341.     addi.w    #16,d1
  342.     subq.w    #1,d7
  343.     move.w    d1,(a6)+
  344.     move.w    d2,(a6)+
  345.     move.w    d7,(a6)+
  346.     move.w    #$0003,(a6)+
  347.  
  348.     subi.w    #16,d1
  349.     addi.w    #16,d2
  350.     addq.w    #3,d7
  351.     move.w    d1,(a6)+
  352.     move.w    d2,(a6)+
  353.     move.w    d7,(a6)+
  354.     move.w    #$0003,(a6)+
  355.  
  356.     addi.w    #16,d1
  357.     subq.w    #1,d7
  358.     move.w    d1,(a6)+
  359.     move.w    d2,(a6)+
  360.     move.w    d7,(a6)+
  361.     move.w    #$0003,(a6)+
  362.  
  363.     rts
  364. *---------------------------------------
  365.